(describe-face): Use describe-simplify-lib-file-name.

diff --git a/lisp/faces.el b/lisp/faces.el
index abcb6bf2deeec282d4f953c9a3c89ddf29958d31..c69354f38fb8072a923f2b123268677f71420431 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1297,6 +1297,7 @@ If FRAME is omitted or nil, use the selected frame."
              ;; The next 4 sexps are copied from describe-function-1
              ;; and simplified.
              (setq file-name (symbol-file f 'defface))
+             (setq file-name (describe-simplify-lib-file-name file-name))
              (when file-name
                (princ "Defined in `")
                (princ file-name)